00100	TITLE CNVERT - CONVERT TV FORMAT OLDE TO NEW - BGB - 16 APR 73.
00200		FLGBGB:-1
00300	
00400	SUBR(GETFIL)------------------------------------------------------
00500	BEGIN GETFIL;SETUP FILE SPEC FROM TTY LINE - BGB - 10 DEC 72.
00600		DZM FILNAM↔DZM EXTION↔DZM EXTION+1↔DZM PPPN
00700		OUTSTR[ASCIZ/	FILE = /]
00800		LAC 1,[POINT 6,FILNAM,-1]↔LACI 2,6
00900		INCHWL↔CAIN 15↔GO[INCHWL↔POP2J]↔AOSA(P)
01000	L:	INCHWL↔CAIL"a"↔SUBI 40
01100		CAIN"."↔GO[LAC 1,[POINT 6,EXTION,-1]↔LACI 2,3↔GO L]
01200		CAIN"["↔GO[LAC 1,[POINT 6,PPPN,-1]  ↔LACI 2,3↔GO L]
01300		CAIN","↔GO[LAC 1,[POINT 6,PPPN,17]  ↔LACI 2,3↔GO L]
01400		CAIN"]"↔GO L
01500		CAIN 15↔GO EOL			;END OF THE LINE.
01600		CAIN 12↔GO EOL
01700		CAIG" "↔GO L	;IGNORE GARBAGE.
01800		SOJL 2,L↔SUBI 40↔IDPB 1↔GO L
01900	
02000	EOL:	INCHWL
02100		SKIPN 1,EXTION↔LAC 1,ARG2↔DAC 1,EXTION
02200		SKIPN FLGBGB↔POP2J
02300	;BGB'S DEFAULT PROJECT SPECIFICATION.
02400		SKIPN 1,PPPN↔  LAC 1,ARG1↔DAC 1,PPPN
02500		POP2J
02600	BEND;12/10/72------------------------------------------------------
02700	
02800	FILNAM:	0	;FILE NAME.
02900	EXTION:	0	;EXTENSION.
03000		0
03100	PPPN:	0	;PROJECT-PROGRAMMER.
     

00100	;TVDSKI. TVDSKO.
00200	SUBR(TVDSKI)------------------------------------------------------
00300	BEGIN TVDSKI;INPUT TV PICTURE FROM A DISK FILE - BGB 6 DEC 72.
00400		INIT 1,17↔SIXBIT/DSK/↔0↔HALT
00500	L1:	CALL(GETFIL,[SIXBIT/TMP/],[SIXBIT/DATBGB/])
00600		GO[RELEASE 1,↔POP0J]
00700		LOOKUP 1,FILNAM↔GO L1
00800		IN 1,DUMARG↔JFCL
00900		OUTSTR[ASCIZ"	EOF.
01000	"]↔	RELEASE 1,↔POP0J
01100	DUMARG:	IOWD 24400,HEADER↔0
01200	BEND;12/14/72-----------------------------------------------------
01300	
01400	SUBR(TVDSKO)------------------------------------------------------
01500	BEGIN TVDSKO;INPUT TV PICTURE FROM A DISK FILE - BGB 6 DEC 72.
01600		CALL(GETFIL,[SIXBIT/TMP/],[SIXBIT/DATBGB/])↔POP0J
01700		INIT 1,17↔SIXBIT/DSK/↔0↔HALT
01800		ENTER 1,FILNAM↔GO[OUTSTR[ASCIZ/	ENTER FAILED.
01900	/]↔GO .+4]
02000		OUT 1,DUMARG↔JFCL
02100		OUTSTR[ASCIZ"	EOF.
02200	"]↔	RELEASE 1,↔POP0J
02300	DUMARG:	IOWD 24400,HEAD1↔0
02400	BEND;12/14/72-----------------------------------------------------
     

00100	SA:	CALL(TVDSKI)
00200		LAC[XWD HEADER,HEADER+1]
00300		DZM HEADER
00400		BLT HEADER+9
00500		CALL(TVDSKO)
00600		GO SA
00700	
00800	
00900	HEAD1:	-1
01000		6	; BITS PER BYTE.
01100		=48	;WORDS PER LINE.
01200		=20	;FIRST AND LAST ROW.
01300		=235
01400		=28
01500		=315	;FIRST AND LAST COL.
01600		XWD -=10368,200
01700	
01800		BLOCK =110	;KARL PINGLE MEMORIAL HOLE.
01900	
02000	HEADER:	BLOCK =10
02100		BLOCK 24400
02200	EOB:	-1
02300	
02400	END SA